home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ LowLevelHook Timeout.xpl < prev    next >
Text File  |  2001-05-28  |  2KB  |  45 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH 1"="System\Timeouts"
  5. "UIPATH 2"="System\Security\Common"
  6. "NAME"="Low Level Hook Timeout"
  7. "VERSION"="1.12"
  8. "OSVERSION"="010101"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="Timeout (ms)"
  11. "DESCRIPTION 1"="Certain programs install a "hard interceptor" also known as "Low Level Hook", which initiates if the user doesn't take any action."
  12. "DESCRIPTION 2"="Windows activates such programs before Windows itself tries to dispatch an error message, so if the program owning the hook crashes, system stability is at risk or Windows may lock up."
  13. "DESCRIPTION 3"="To correct this, you can set a Low Level Hook timeout (measured in milliseconds). A program which does not return control to Windows before the timeout expires is terminated."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com/"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="Added OS detection: works only in WinNT and Win2000. Updated description."
  18. "COMMENT 2"="More info @ MSDN: http://msdn.microsoft.com/library/psdk/winbase/hooks_6fc3.htm"
  19. "COMMENT 3"="More info @ MSDN: http://msdn.microsoft.com/library/periodic/period00/win320700.htm"
  20.  
  21. sP="HKCU\Control Panel\Desktop\LowLevelHooksTimeout"
  22. Sub Plugin_Initialize 
  23.  i=RegReadValue(sp)
  24.  if IsEmpty(i)=false then
  25.     SetUIElement 1,i
  26.  end if
  27. End Sub
  28.  
  29. Sub Plugin_CheckData(ElementIndex)
  30. End Sub
  31.  
  32. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  s=GetUIElement(1)
  34.  If Len(s)<=0 then
  35.     if RegValueExists(sP) then
  36.        RegDeleteValue(sP) 
  37.     end if
  38.  else
  39.     Call RegWriteValue(sp,s,1)
  40.  end if
  41. End Sub
  42.  
  43. Sub Plugin_Terminate 
  44. End Sub
  45.